﻿
Public Class cRecibosCaja

    Public recovery As String

    Sub New(ByVal idTipoPago As String, ByVal idDocumento As String, ByVal numeroDoc As Integer)

    End Sub

    Sub New(ByVal idTipoPago As String)

    End Sub
    Public Property idDocumento() As String
        Get

        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Property numero() As Integer
        Get

        End Get
        Set(ByVal value As Integer)

        End Set
    End Property

    Public Property idTercero() As String
        Get

        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Property Fecha() As DateTime
        Get

        End Get
        Set(ByVal value As DateTime)

        End Set
    End Property

    Public Property Nota() As String
        Get

        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Property iTercero() As cTercero
        Get

        End Get
        Set(ByVal value As cTercero)

        End Set
    End Property

    Public Property idTipoPago() As String
        Get

        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Property ValorRecibo() As Double
        Get

        End Get
        Set(ByVal value As Double)

        End Set
    End Property




    Protected Overrides Sub Finalize()

    End Sub

    Public Sub aplicarPagoFactura()

    End Sub

    Public Sub validarPagoPlan()

    End Sub
End Class

Public Class cTipoPago

    Sub New(ByVal idTipoPago As String)

    End Sub
    Public Property idTipoPago() As String
        Get

        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Property Descripcion() As String
        Get

        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Protected Overrides Sub Finalize()

    End Sub
End Class

Public Class cReciboCajaDetalleFactura

    Sub New(ByVal idDocumneto As String, ByVal Numero As Integer)

    End Sub
    Public Property idDocumento() As String
        Get

        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Property Numero() As Integer
        Get

        End Get
        Set(ByVal value As Integer)

        End Set
    End Property

    Public Property idDocFactura() As String
        Get

        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Property Numerofactura() As Integer
        Get

        End Get
        Set(ByVal value As Integer)

        End Set
    End Property

    Public Property ValorPago() As Double
        Get

        End Get
        Set(ByVal value As Double)

        End Set
    End Property




    Public Property iMovimiento() As cMovimiento
        Get

        End Get
        Set(ByVal value As cMovimiento)

        End Set
    End Property

    Protected Overrides Sub Finalize()

    End Sub
End Class

Public Class cReciboCajaDetallePlan

    Sub New(ByVal idDocumento As String, ByVal numero As Integer)

    End Sub
    Public Property idDocumento() As String
        Get

        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Property numero() As Integer
        Get

        End Get
        Set(ByVal value As Integer)

        End Set
    End Property

    Public Property ValorPlan() As Double
        Get

        End Get
        Set(ByVal value As Double)

        End Set
    End Property




    Public Property idPlan() As String
        Get

        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Property Min() As String
        Get

        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Property iccid() As String
        Get

        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Property imei() As String
        Get

        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Property iPlan() As cPlanes
        Get

        End Get
        Set(ByVal value As cPlanes)

        End Set
    End Property

    Protected Overrides Sub Finalize()

    End Sub
End Class
